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PLANO DA OBRA 
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Exemplares atrasados, até seis meses após o encerramento da coleção, pode- 
rão ser comprados, a preços atualizados, da seguinte forma: 1. PESSOAL 
MENTE — Por meio de seu jornaleiro ou dirigindo-se ao distribuidor local, 
cujo endereço poderá ser facilmente conseguido junto a qualquer jornaleiro 
de sua cidade. Em São Paulo, os endereços são: rua Brigadeiro Tobias, 773, 
Centro; avenida Industrial, 117, Santo André; e no Rio de Janeiro: avenida 
Mem de Sá, 191/193, Centro. 2. POR CARTA — Poderão ser solicitados exem- 
plares atrasados também por carta, que deve ser enviada para DINAP — Dis- 
tribuidora Nacional de Publicações — Números Atrasados — Estrada Velha 
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comenda na agência do Correio. 3. POR TELEX — Utilize o nº (011)33 670 
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Quais são suas chances de fazer os 
treze pontos na loteria esportiva 

desta semana? Nosso programa não vai 
melhorar sua sorte, mas poderá 
ajudá-lo a entender porque perdeu. 





Instruir um novo piloto a bordo de 
um avião a jato ou de um bombardeiro 
pode custar muito caro, se levarmos em 
conta os custos com combustível, ater- 
rissagens e pessoal de apoio. Por isso, as 
autoridades militares preferem investir 
grandes somas em aviões de treinamen- 
to e simuladores — equipamentos con- 
trolados por computador que nunca dei- 
xam o solo, mas dão ao iniciante a sen- 
sação de um vôo real. 

O mesmo tipo de argumento é váli- 
do em várias outras situações — incluin- 
do o planejamento de uma indústria, 
marketing, pesquisas científicas e planos 
governamentais. Programar um compu- 
tador para simular os efeitos de uma 
provável falência ou de uma determina- 
da política econômica é, sem dúvida, 
mais razoável do que testá-las na práti- 
ca, o que tomaria cinco anos ou mais, 
dependendo das circunstâncias. Não 
surpreendem, portanto, os grandes in- 
vestimentos que têm sido feitos na área. 

Antes do advento dos computadores, 
era praticamente impossível utilizar es- 
se recurso, devido à complexidade e ex- 
tensão dos cálculos envolvidos. Hoje em 
dia, até os microcomputadores pessoais 
podem fazer simulações não muito com- 
plicadas — como as que você já deve ter 
visto em jogos comercializados pelos fa- 
bricantes, 

Por trás de todo trabalho de simula- 
ção e previsão, estão as leis da probabi- 
lidade. Se você não está familiarizado 
com elas, consulte o artigo Acaso e Pro- 
babilidade na página 776. Complemen- 
tando essas leis, usam-se os estudos es- 
tatísticos, que analisam os fatos reais, 
quantificando a ocorrência de certas si- 
tuações e o surgimento de variações em 
suas características. 

A partir de algumas informações bá- 
sicas, o computador é capaz de pre- 
ver situações futuras para uma série de 
eventos. Mas a confiabilidade dos resul- 











tados dependerá sempre do cuidado com 
que os dados foram introduzidos e da 
precisão das regras que orientam sua 
manipulação. Tomemos um exemplo 
bem simples: a simulação dos resultados 
de uma loteria esportiva. 

A cada fim de semana, milhares de 
pessoas conferem, pela televisão ou pe- 
lo rádio, os resultados da loteria espor- 
tiva, aguardando ansiosamente sua vez 
de fazer os treze pontos. Infelizmente, 
todos, exceto os raros premiados, des- 
ligam a televisão desapontados e vão 
dormir, esperando pelos jogos da pró- 
xima semana. Se voçê quiser antecipar 
a emoção de checar sua sorte, digite es- 
tas linhas: 


10 DIM J(13): BORDER O: PAPER 
O: INK 7: CLS 
20 PRINT INVERSE 1,” AS PART 
IDAS ESTÃO EM ANDAMENTO” 
30 FOR 1T=1 TO 13 
40 LET J(T)=RND*1 
50 NEXT I 
60 FOR I=1l TO 2000: NEXT IT 
70 PRINT : PRINT FLASH 1; 
PAPER 2;" E ATENCAO PARA OS BR 
ESULTADOS:": PRINT 
BO FOR I=1 TO 13 
90 IF J(I)j<=.5 THEN LET Z8=" 
UM” 
100 IF J(T)>.5 AND J(T)<=.75 
THEN LET Z5="DOIS” 
110 IF J(1)>.75 THEN LET Z58=* 
DO METO” 
120 PRINT TAB 3;"JOGO “;I;: 
PRINT TAB 11;”": COLUNA ";Z5 
130 FOR T=1 TO 500: NEXT T 
140 NEXT I: PRINT : PRINT 
150 PRINT FLASH O; PAPER );"V 
OCE QUER OUTRA LOTERIA (S/N)?2" 
160 LET AS=INKEYS: IF AS="" 
THEN GOTO 160 
170 TF A$="S” THEN GOTO 10 
1B0 STOP 


10 DIM J(13) 


20 CLS:PRINT *” AS PARTIDAS ESTA 


O EM ANDAMENTO” 

30 FOR I=1 TO 13 

LET J(I)=RND(10)/10 
NEXT 1 

FOR I=-1 TO 2000:NEXT 


70 PRINT €34,"E ATENCAO PARA OS 


“RESULTADOS” : PRINT 
80 FOR I=1 TO 13 | 
90 IF J(I)<=.5 THEN Z$="UM” 


100 IF J(1I)>.5 AND J(I)<=.75 TH 


EN Z5="DOIS” 


110 IF J(1)>.75 THEN Z$="DO MEI 
o” 

120 PRINT TAB(4) "JOGO";1;": CO 
LUNA ";Z5 

130 FOR T=1 TO 500:NEXT T 

140 NEXT I:PRINT 

150 PRINT “VOCE QUER OUTRA LOTE 























RIA ? (8/N)” 

160 LET AS=INKEYS: IF AS="* THEN 
160 

170 IF A$="S” THEN GOTO 20 

180 END 


ato 


JO DIM J(13) 

20 HOME : PRINT TAB( 5)"AS PA 

RTIDAS ESTAO EM ANDAMENTO” 

30 FOR I = 1 TOA 

40 LET J(T) = BND (1) 

50 NEXT I 

60 FOR 1I=1 TO Z000: NEXT 

70 PRINT : PRINT TAB( 6)"E AT 

ENCAO PARA OS RESULTADOS": PRIN 

E 

rs FOR 1 = 1 TO ls 

90 IF J(I) «< = .5 THEN Z3 = * 

UM” 

100 IF J(I) > .5 AND J(T) & = 
.75 THEN Z5 = "DOIS” 

120 JTF J(Z) > 2.75 THEN Z9 = "D 
O MEIO” 

| 120 PRINT TAB( 7)"JOGO “:lT;: 

PRINT TAB( 15)”: COLUNA ";2Z 

> 

130 FORT =1 TO S00: NEXT T 

140 NEXT I: PRINT : PRINT 

150 PRINT TAB( 4)"VOCÊ QUER O 

UTRA LOTERIA ?(8/N)" 

160 GET AS 

170 IF AS = "S” THEN GOTO 20 

180 END 


ny 


LO DIMJ(13) 
20 CLS:PRINT TAB(5)"AS PARTIDAS 
ESTÃO EM ANDAMENTO" 
30 FOR I=1 TO 13 
LET J(T)=RND(1) 
NEXT 1 
FOR I=1 TO 2000:NEXT 
| PRINT:PRINT TAB(6) "E ATENÇÃ 
O PARA OS RESULTADOS” : PRINT 
80 FOR I=1 TO 13 
90 IF J(T)<=.5 THEN ZS="UM” 
L00 IE J(1)>.5 AND J(I)<=.75 TH 
EN Z$="DOIS” 
110 IE J(1)>.75 THEN 2$="DO MEI 
o” 
120 PRINT TAB(7) "JOGO";I;:PRIN 
T TAB(15S)* : COLUNA ";Z5 
130 FOR T=1 TO 500:NEXT T 
140 NEXT I:PRINT:PRINT 
150 PRINT TAB(4) "VOCÊ QUER OUT 
RA LOTERIA? (8/N)" 
160 AS=INKEYS:IF A$="" THEN GOT 
O 160 
170 IF AS="S” THEN GOTO 20 
180 END 
Rode o programa e os resultados se- 
rão prontamente impressos na tela. 
Não é incomum o cancelamento de 
algum jogo, sobretudo por causa de 
chuva. Quando isso ocorre, a Caixa 
Econômica Federal, a promotora da lo- 
teria, faz um sorteio para definir um re- 
sultado para o jogo. Na verdade, esse 
processo não passa de uma simulação, 











ou seja, de uma representação simbóli- 
ca de uma situação real. 

A estrutura do programa é muito 
simples. O laço entre as linhas 30 e 50 
sorteia treze números correspondentes 
aos treze jogos, e o laço entre as linhas 
80 e 140 relaciona esses números aos 
possíveis resultados, 





DECIDINDO os RESULTADOS 


O parâmetro que o computador uti- 
liza para imprimir os dados do placar 
provém de uma análise sobre a frequên- 
cia de cada resultado em jogos passados. 
Sabe-se que, em 50% dos jogos, o time 
da casa vence, pois conta, entre outras 
vantagens, com o apoio da torcida. As 
ocorrências restantes dividem-se igual- 
mente entre empate — 25% — e vitória 
do time visitante — 25%. 

Em cada jogo há três resultados pos- 
síveis (coluna um, coluna do meio e 
coluna dois) e a loteria inclui treze jo- 
gos. Assim, a probabilidade de ocor- 
rer determinado resultado é de | em 
1.594.323 (um em três elevado a treze). 
Como você vê, as chances de acerto se- 
riam muito pequenas, caso não se per- 
mitissem apostas duplas ou triplas. Na 
Inglaterra, por exemplo, as apostas tam- 
bém incluem empate com gols ou sem 
gols, o que torna a probabilidade de ga- 
nhar ainda menor (1 em 4713). 

Decidir o resultado de um jogo é, 
portanto, como fazer um sorteio: os nú- 
meros são colocados em uma caixa e al- 
guém, sem olhar, pega um deles. 

Suponhamos que se divida um papel 
em quatro partes: na primeira, escreve- 
mos “coluna dois""; na segunda, “'co- 
luna do meio” e, nas outras duas, “'co- 
luna um”. Se fizermos um sorteio, es- 
taremos representando a decisão de uma 
partida de futebol. Também poderiamos 
escrever um número em cada pedaço de 
papel — 1,2,3 e 4 — e relacioná-los a 
um resultado desta forma: 


NÚMERO RESULTADO 
Es coluna um 
3 coluna dois 
4 coluna do meio 


A função RND do BASIC, que ge- 
ra números randômicos, faz com que 
o computador sorteie um número do 
“chapéu”. Considerando que RND ge- 
ra um número entre O e 1, podemos rees- 
crever nossa tabela assim: 


VALOR DO RND RESULTADO 
de 0a 0.5 coluna um 
maior que 0.5 até 0.75 coluna dois 


| maior que 0.75 até 1.00 coluna do meio 


Voltando ao programa anterior, vo- 
cê pode observar que este é o processo 
utilizado pelo computador para decidir 
o resultado de cada jogo (linha 80 até 
linha 140). 

Em nosso programa, as proporções 
entre os resultados dos jogos foram es- 
timadas um pouco grosseiramente. Pa- 
ra aperfeiçoá-las, você poderá fazer uma 
pequena pesquisa em arquivos de jor- 
nais e redefinir a proporção a ser usa- 
da. Experimente fazer algumas previ- 
sões e confira com os resultados da pró- 
xima semana. Boa sorte! 





GERAÇÃO DE NÚMEROS RANDÔMICOS 


Dados, cartas e roleta já foram mui- 
to utilizados para a obtenção de nume- 
ros randômicos. Procedimentos como 
esses, lentos e tediosos, puderam ser 
abandonados depois que um famoso 
matemático americano, John von New- 
man, propôs o método da potência qua- 
drada. Começando com um número de 
quatro dígitos (a semente”), o próxi- 
mo número randômico seria obtido pe- 
la multiplicação da semente por ela mes- 
ma, Do resultado seriam destacados os 
quatro dígitos do meio. Suponhamos 
que a semente é o número 5272. O se- 
gundo número será gerado pelos quatro 
dígitos centrais de (527212), ou seja, 
27.793.984. A resposta (7939) é pratica- 
mente randômica. Um terceiro número 
seria obtido elevando-se 7939 ao qua- 
drado e assim por diante. 

Você pode estar se perguntando se 
qualquer processo matemático — obri- 
gatoriamente repetitivo — seria capaz de 
gerar números realmente randômicos. 
Na verdade, isso é impossível. Porém, 
o número obtido comporta-se como se 
fosse randômico, e é geralmente chama- 
do pseudo-randômico. 

Infelizmente, a técnica da potência 
quadrada não é muito útil para gerar 
números randômicos no computador. 
Além de ser um processo lento, a se- 
quência logo se repete, e, assim que sur- 
ge um zero, ela é interrompida. A maio- 
ria dos micros adota um método distin- 
to, recorrendo a uma fonte qualquer de 
números para gerar os pseudo-randômi- 
cos. O próximo programa usa uma fór- 
mula bem simples e a função INT para 
demonstrar como esse método funciona. 


20 BORDER O: 
CLS 

30 PRINT AT 0,2; INVERSE 1;" 
NUMEROS PSEUDO-RANDOMICOS "'" 
40 INPUT ” QUANTOS NUMEROS ? 
";n: LET 9=0 


INK 7: PAPER O: 


|| E” | | | | | | mal 
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Quantas variáveis cabem na memória? 
Nos interpretadores Microsoft BA- 
| SIC dos micros MSX, TRS-80, TRS- 
Color, Apple e TK-2000, os nomes de 
variáveis podem ter uma ou duas le- 
tras, ou uma letra e um número. Tam- 
| bém é possível acrescentar o sufixo de 
tipo, que pode ser um & (precisão du- 
pla), ! (precisão simples), % linteiro) e 
| 5 [literal). Dadas essas limitações, | 
calcula-se o número de nomes diferen- 
tes em 2 000. 

Já para os micros Sinclair (2X-B1 e 
Spectrum), não há limite teórico, pois 
são aceitos mais de dois caracteres no 
nome de uma variável. 


50 LET x =.677829*PEEK 23673 
r50 

60 LET x=x*1842.95 

70 LET x=x-INT (x) 

BO LET p=INT (x*1000): 
é ":.001*p, 

90 LET s=s+1 

110 IF s<=n THEN GOTO 60 
120 STOP 


20 CLS 

30 PRINT €3,”"NUMEROS PSEUDO-RAN 
DOMICOS” 

40 PRINT:PRINT: INPUT"QUANTOS NU 
MEROS ";N:S=0 

50 X=.677829*TIMER/50 

60 X=Xx1842.95 

70 X=X-=INT(X) 

80 P=INT(X*1000):PRINT LEFTS(ST 
R$(P/1000)+” ",8); 

90 S=S+1 

110 IF S<=N THEN 60 

120 END 


Lab) Ló) 
20 HOME 


30 PRINT TAB( 7)"NUMEROS PSEU 
DO-RANDOMICOS”: PRINT 


PRINT 





40 INPUT "QUANTOS NUMEROS ? ”; 
N:5 = U 

50 X = .677829 * 3183/78 / 50 

60 X =X * 1842.95 

0 X = X — INT (x) 

BO P = INT (X * 1000): PRINT 


LEFTS ( STR3S (P / 1000) + € 
08); 

90 8 =5+1 

110 TF S < N THEN G60 

120 END 


o 


20 CLS 


30 PRINT TAB(6) "NÚMEROS PSEUDO 


=-“RANDOMI COS” : PRINT 
40 INPUT"QUANTOS NUMEROS ";N:5= 


50 X=.677829*TIME/50 

60 X=X*1842.95 

70 X=H-INT(X) 

BO P=INT(X*1000):PRINT LEFTS(ST 
RS (P/1000)+* 7,8); 

90 5=5+1 

110 IF S<N THEN 60 

120 END 


A linha 50 usa a função time para 
produzir uma semente diferente a cada 
execução do programa. O Apple e o 
TK-2000 não possuem essa função. Por- 
tanto, se você quiser uma outra segiên- 
cia, deverá substituir o valor 318378. 

O número .677829 é uma constante 
arbitrária. Depois que o valor é multi- 
plicado por outra constante (linha 60), 
obtém-se o resíduo (ou parte decimal). 
Mude os valores das constantes nas li- 
nhas 50 e 60 e torne a executar o pro- 
grama para verificar o tipo de resulta- 
do a que chegará. 

Para outros fins, é mais fácil utilizar 
a função RND existente em seu compu- 
tador. Variando o valor de x na expres- 
são RND(x), você poderá selecionar 
uma seqlência que se repita, o que é 
muito útil para renovar a semente a ca- 
da execução do programa. 

Lembre-se de que a função RND cria 
uma variável randômica e não uma va- 
riável algébrica. RND(1) — ou RND(0) 
no TRS-Color — não resultará no mes- 
mo número em duas partes do programa. 


AMOSTRAS E PESQUISAS 





Empresas que fazem pesquisas de 
mercado ou de opinião pública usam 
computadores para gerar uma amostra 
randômica da população. Quando en- 
trevistam, por exemplo, mil pessoas, é 
muito importante que elas representem 
a grande maioria da população. Ou se- 
ja, os entrevistados não podem ser es- 
colhidos por morar perto do instituto de 
pesquisa ou trabalhar em determinada 
empresa. Ao contrário, devem ter as 
mais diversas origens e características 
para que suas opiniões não sejam in- 
fluenciadas por particularidades comuns 
a determinados grupos. 

A melhor maneira de se definir uma 
amostra bem representativa é selecioná- 
la randomicamente, excluindo, assim, 
qualquer tendência ou preconceito. 

Isso continua valendo mesmo que o 
campo amostral não seja tão grande, e 
que comporte de fato algumas caracte- 
rísticas comuns — como se supõe haver 
entre os sócios de um clube ou os leito- 
res de INPUT. Se você quisesse saber, 


por exemplo, quais os computadores 
mais usados entre os leitores de INPUT, 
seria necessário fazer uma amostragem 
randômica para chegar ao resultado 
mais próximo possivel do real. 

O processo utilizado no programa é 
similar ao de retirar números de um cha- 
péu, com uma pequena diferença: o pa- 
pel sorteado não voltará ao chapéu, o 
que equivaleria a entrevistar duas vezes 
a mesma pessoa. Execute o programa 
que se segue para ver como a função 
RND pode ser empregada para gerar 
uma amostragem randômica. 


10 DIM b$(10,16) 

20 DIM as (10,16) 

30 BORDER O: PAPER O: 
CLS 

S0 PRINT AT 0,5; INVERSE 1;"A 
MOSTRAGEM RANDOMICA ” 

90 PAUSE 100: CLS 
100 FOR 1=1 TO 10: 
NEXT 1 

110 INPUT ” TAMANHO DA AMOSTRA 
= “4n 

120 FOR v=1 TO 10: 
S(v): NEXT v 

130 FOR 3=1 TO n 
140 LET r=1+INT (BND*10) 
150 IF DbS(r)=" 

* THEN GOTO 140 


INK 7: 


READ aS(i): 


LET bS(v)=a 


160 PRINT bSt(r) 

170 LET b5S(r)="" 

180 NEXT 3 

190 INPUT ” OUTRA AMOSTRA (s/n 

| TT TIga 

200 IF qg$="s" THEN CLS Goro 
110 

210 STOP 


220 DATA "BONN","COPENHAGUE”,” 
LONDRES” 

230 DATA "MADRI","MOSCOU”,"NOV 
A TORQUE” 

240 DATA "PARIS”,"ROMA”,"ESTOC 
OLMO”, "VTENA” 


40 CLS 

S0 PRINT 88," AMOSTRA RANDOMICA” 
* PRINT: PRINT 

100 RESTORE:FOR 1I=1 TO 10:READ 
AS(I)J:NEXT T 

110 INPUT"TAMANHO DA AMOSTRA "; 
N: PRINT 

115 IF N>10 THEN 40 

120 FOR V=1 TO 10:BS(V)=AS(V):N 
EXT V 

130 FOR J=1 TON 

140 R=1+INT (RND (0) *10) 

150 IF BS(R)="* THEN 140 

160 PRINT BS(R) 

170 BS(R)="" 

180 NEXT J 

190 PRINT: INPUT” OUTRA AMOSTRA 
(S/N) ";GS: PRINT:PRINT 

200 IF G9="S" THEN 110 

210 END 

220 DATA BONN, COPENHAGUE, LONDRE 











230 DATA MADRI,MOSCOU, NOVA IORQ 
UE 

240 DATA PARIS, ROMA, ESTOCOLMO,V 
IENA 


ão HOME 
50. 


PRINT TAB( 10)"AMOSTRAGEM 
RANDOMICA”: PRINT 
100 RESTORE FOR I = 1 TO 10: 
READ AS(I): NEXT I 
110 INPUT "TAMANHO DO CAMPO AM 
OSTRAL :";N: PRINT 
115 IF N> IO THENAO 
120 FOR V=1 TO 1l0:BS(V) = AS 
(VU): NEXT V 
130 FOR J=1 TON 
140 AR = 1 + JINT ( BND (1) * 10 
) 
150 IF B$(R) = "" THEN 140 
150 PRINT BS(B) 
170 BS(R) = "" 
180 NEXT J 
190 PRINT INPUT "OUTRA AMOST 
RAGEM 2 (8/N) ";68: PRINT PRIN 
T 
200 IF G5 = "S” THEN 40 
210 END 
220 DATA  BONN,COPENHAGEN, LOND 
RES 
230 DATA MADRI,MOSCOU,NOVA YO 
RK 
240 DATA  PARIS,ROMA, ESTOCOLM 
O, VIENA 
20 CLS 


30 PRINT TAB(6) "NUMEROS PSEUDO 

-“RANDÔMICOS” : PRINT 

40 cLS 

50 PRINT TAB(8B) "AMOSTRAGEM BAN 

DOMICA”: PRINT:PRINT 

100 RESTORE:FOR I=1 TO 10:READ 

AS(I)J:NEXT I 

110 INPUT "TAMANHO DA AMOSTRA ”" 
“N: PRINT 

120 FOR V=1 TO 10:BS(V)=AS(V):N 

EXT V 

130 FOR J=1 TON 

140 BR=1 +INT (RND(1)*10) 

150 IF BS(R)="" THEN 140 

160 PRINT BS(BR) 

170 BS(R)="" 

180 NEXT J 

190 PRINT: INPUT"OUTRA AMOSTRA ? 
(8/N)";G5:PRINT:PRINT 

200 IF G$="S" THEN 110 

210 END 

220 DATA BONN, COPENHAGEN, LONDRE 

s 

230 DATA MADRI,MOSCOU, NOVA YORK 

240 DATA PARIS, ROMA, ESTOCOLMO,V 

IENA 


Depois que as informações que se- 
guem o comando DATA foram lidas (li- 
nha 100), um número inteiro randômi- 
co R, entre 1 e 10, é gerado (linha 140). 
Seu computador imprimirá, então, o R- 
ésimo item (linha 160) da lista. 


Assim que um item é selecionado, 
deve-se removê-lo do banco de informa- 
ções, para não ser escolhido duas vezes. 
A linha 170 se encarrega disso. 

Geralmente, o banco de informações 
a ser pesquisado é bem mais extenso do 
que o apresentado aqui. Para obter 
amostragens de um grupo maior, nosso 
programa seria lento e ineficiente. Se um 
político quisesse, por exemplo, sortear 
duzentos nomes de um eleitorado de 
60.000 elementos, o programa teria que 
percorrer a lista duzentas vezes. Para 
evitar essa longa espera, o mais conve- 
niente seria recorrer ao método de bus- 
ca individual. 





O MÉTODO DE BUSCA INDIVIDUAL 


Com esse método, o banco de dados 
é percorrido uma só vez, de cima para 
baixo. Decide-se, a cada nome conside- 
rado, qual deve ser incluído na amostra- 
gem. Para obter uma amostragem des- 
sa maneira, faça as seguintes modifica- 
ções no programa anterior: 


120 LET a=n: LET c=10 

130 FOR 3=1 TO 10 

140 IF a=0 THEN GOTO 190 

150 IF AND*1<=a/c THEN PRINT 


asg(3): GOTO 170 
160 LET c=c-l: GOTO 180 
170 LET a=a-l: LET c=c-l 


S0 PRINT 83," AMOSTRA RANDOMICA 
SIMPLES ":PRINT:PRINT 

120 A=N:;C=10 

130 FOR J=1 TO 10 

140 IF A=O THEN 190 

150 IF RND(0)<=A/C THEN PRINT A 
$(J):GOTO 170 

160 C=C-1:GOTO 180 

170 A=A-1:C=C-1 


bi] 


50 PRINT "AMOSTRAGEM RANDOMICA 
DE BUSCA INDIVIDUAL": PRINT 
120 A = N:C = 10 

130 FORJ=1 TOO 

140 IF A = O THEN 190 

150 IF RND (1) < = A/C THE 

N PRINT AS(J): GOTO 170 

160 € = C- 1: GOTO 180 

170 A=A-1l:C=C-1 


o 


"AMOSTRAGEM RAN 
"DE 


50 PRINT TAB(9) 
DOMTICA": PRINT:PRINT TAB (9) 
BUSCA INDIVIDUAL”: PRINT 
120 A=N:C=10 

130 FOR J=1 TO 10 

140 IF A=0 THEN 190 

150 IF AND(1)<=A/C THEN PRINT A 


FAZENDO PREVISÕES 

As técnicas de simulação descritas 
neste artigo apresentam muitos dos 
elementos necessários para que você 
próprio desenvolva um método para 
prever os resultados de um jogo ou pa- | 
ra fazer uma pesquisa. Não será difícil 
modificar os programas ou usar parte 
deles, adaptando-os às suas fina- 
lidades. 

Você pode, por exemplo, planejar e 
montar um programa que contenha o re- 
sultado de vinte partidas e, então, se- 
lecionar treze delas e comparar suas 
previsões com os resultados reais. Pa- 
ra isso, seria preciso utilizar tanto o 

| programa da loteria esportiva quanto 
o da amostragem, com algumas modi- 

| ficações e linhas extras destinadas a | 
ligá-los. 

Se você quiser treinar um pouco | 
mais, experimente uma outra combina- 
ção dos dois programas, fazendo com 
que o computador não só simule os re- 
sultados da loteria esportiva, como 
também forneça os nomes dos times | 
que estão jogando. Você deverá, nes- | 
se caso, incluir no programa de amos- 
tragem os nomes de vários times, den- | 

| tre os quais 26 serão sorteados. 





S (J):GOTO 170 
160 C=C-1:GoTO 
170 A=A-L:C=C-1 


180 


Se você decidir selecionar três itens da 
lista, o primeiro deles, Bonn, só será es- 
colhido se a função RND (linha 150) re- 
sultar num número menor que 3/10. 
Copenhague será o próximo item a ser 
considerado. Se Bonn já tiver entrado 
para a amostragem, o item Copenhague 
terá a chance de ser escolhido se a fun- 
ção RND gerar um valor menor que 
2/9. Se Bonn não foi selecionado, a 
chance de Copenhague aumenta para 
3/9. As linhas 160 e 170 atualizam es- 
sas probabilidades para cada elemento. 

Se você comparar as amostragens ob- 
tidas por este programa com as do pro- 
grama anterior, observará que, aqui, 
elas aparecem na ordem em que estão 
no programa. 

A primeira vista, pode-se supor que, 
com uma lista de dez itens, o número de 
amostragens possíveis é pequeno. Na 
verdade, porém, é bem grande: são 120 
amostras diferentes com três itens, e 252 
com cinco itens. | 





MESES Oil 











Até agora Willie não contava com a 
ameaça de uma avalanche. A rotina que 
faz com que as pedras rolem está ape- 
nas pela metade e, provavelmente, fa- 
lhará se você tentar executá-la. Esta se- 
gunda parte da rotina irá precipitar a 
avalanche. E Willie só estará seguro se 
pular fora do caminho. 


A listagem que apresentamos aqui é 
constituída de duas seções principais. 
Uma delas imprime a segunda figura da 
pedra — para dar a impressão de que 
ela está rolando — e verifica se Willie 
foi atingido. A outra apaga a pedra se 
ela tiver chegado ao fim da encosta ou 
à superfície do mar e a recoloca no to- 
po da encosta. Ambas as seções são cha- 
madas pela parte da rotina fornecida no 
artigo anterior. 

Assim que você tiver digitado e mon- 
tado as linhas que se seguem, a rotina 
de movimentação da pedra estará pron- 
ta para funcionar. Mas lembre-se de que 
você deve ter o resto do jogo na memó- 
ria, já que outras rotinas — como print 
— serão chamadas. 


10 REM org 59097 

20 REM bma ld h1, (57356) 
30 REM ld de,22528 

40 REM add hl,de 

50 REM ld a, (h1) 

60 REM cp 40 

70 REM 5r nz,bnh 

BO REM ld a,2 

90 REM ld (57336),a 
100 REM bnh ld h1, (57356) 
110 REM ld a,42 
120 REM ld bc,57128 
130 REM call 58217 
140 REM inc hl 
150 REM call 58217 
160 REM ld a,0 

170 REM 1d (57358),a 
180 REM ret 
190 REM bri 1d h1,(57356) 
200 REM 1d bc,15616 
210 REM ld a,45 
220 REM call 58217 
230 REM ld h1,223 
240 REM ld (57356),hl 
250 REM ret 


Na última parte de Avalanche, você 
teve que analisar a cor do caractere que 





AVALANCHE: AS 
PEDRAS ROLAM (2) 





estava logo abaixo da pedra, para verifi- 
car se ela tinha chegado à água ou se es- 
tava rolando. Agora, será preciso checar 
a cor da posição onde a pedra será im- 
pressa, para saber se ela conseguirá 
atingir Willie. 

A posição de impressão da pedra é 
transferida dos endereços 57356 e 57357 
para o par HL. Não se esqueça de que 
a variável de posição da pedra, que está 
nesses endereços, foi decrementada no 
fim da primeira parte desta rotina. As- 
sim, quando a rotina é novamente cha- 
mada, a variável está apontando para a 
posição à esquerda da pedra. Saltando 
para essa seção da rotina, o programa 
imprime a segunda figura da pedra no 
local indicado — uma posição à esquer- 
da da anterior —, para dar a impressão 
de que está em movimento. 

O par DE é carregado com 22528, va- 
lor adicionado em seguida ao conteúdo 
de HL. O resultado, que aponta para a 
cor da posição onde a pedra será impres- 
sa, permanece no par HL. 

Utilizamos o apontador em HL para 
obter a cor da posição e carregá-la no 
acumulador por meio de endereçamen- 
to direto. Essa cor é comparada com 40, 
que corresponde ao código de azul so- 
bre fundo azul ciano, a cor de Willie 
contra o céu. 

Se a cor nessa posição não é 40, a pe- 
dra não atingirá Willie, e a instrução jr 
nz,bnh faz o processador pular as pró- 
ximas instruções. 





WILLIE É ATINGIDO 


Se Willie for mortalmente atingido 
pela pedra, a variável no endereço 57336 
deve ser igualada a 2. Para isso, colo- 
camos 2 no acumulador e carregamos 
seu conteúdo em 57336. 


A PEDRA ESTÁ ROLANDO 





Inevitavelmente, a pedra irá rolar 
uma posição à esquerda. Se Willie não 
estiver pelo caminho, nem se preocupe. 
Caso contrário, você pode ter a certeza 
de que ele foi esmagado. 

O par HL é carregado com a nova 
posição da pedra na tela. O acumulador 


Willie precisará ter muito cuidado 
agora. Às pedras estão prontas 
para rolar morro abaixo. E, nesta 
segunda parte da rotina, descerão 
numa avalanche sobre ele. 





A é carregado com 42 — vermelho so- 
bre fundo ciano — e o par BC, com 
57128, que corresponde ao endereço i ini- 
cial dos dados para a segunda figura da 
pedra, que ocupa duas posições na te- 
la. A rotina print é chamada e imprime 
a primeira metade da pedra (a porção 
esquerda). O par HL é incrementado — 
o que faz o apontador se mover uma po- 
sição para a direita. A rotina print é no- 
vamente chamada, imprimindo a segun- 
da metade da pedra. 

Como você verá, a segunda pedra se 


desloca meio caractere de cada vez, pois 
ocupa duas posições na tela. Essa estru- 
tura de duas metades faz com que o mo- 
vimento seja muito mais suave e contí- 
nuo, acentuando a impressão de que a 
pedra está rolando. 

Note que, movendo a pedra um ca- 
ractere para a esquerda (como fizemos 
na primeira parte da rotina) e, depois, 
meio caractere, mantemos um avanço 
tão suave na posição em 57356 e 57357 
que não há necessidade de verificar se 
a pedra ainda está no chão. 








IMPRESSÃO 
— DA SEGUNDA PEDRA 
EFEITO DE ANIMAÇÃO 
WILLIE FOI ATINGIDO? 
MORTE DO INFELIZ 


o -) m E 








Agora, basta que igualemos a variá- 
vel do tipo de pedra a 0, para que, quan- 
do a rotina for chamada de novo, o pro- 
cessador execute a outra parte. Para is- 
so, colocamos O no acumulador e car- 
regamos o conteúdo de A em 57358. 


RECOMECA A AVALANCHE 





A rotina bri é chamada pela primei- 
ra parte da rotina de movimentação 
sempre que a pedra chega ao fim da en- 


MENS 


PERSONAGEM 
E) FIM DA ENCOSTA 
= * MERGULHO NO MAR 
= 
= 


DO == 


| DEVOLTAAOTOPO 
— A AVALANCHE RECOMEÇA 


costa ou atunda nas águas do mar. A 
função de bri consiste em apagar a pe- 
dra da sua posição atual e reajustá-la pa- 
ra o topo da encosta. 

A operação de apagar a pedra é feita 
como de costume. Sua posição é trans- 
ferida de 57356 e 57357 para HL; o par 
BC é carregado com o endereço inicial 
dos dados (que estão na ROM) para um 
espaço vazio e o acumulador A, com o 
valor 45, que corresponde ao código de 
ciano sobre fundo ciano. Chamaaa em 
seguida, a rotina print imprime um ca- 
ractere cor do céu sobre a pedra, fazen- 
do-a desaparecer da tela. 

O par HL é carregado com 223, po- 
sição da pedra na tela quando ela se en- 
contra no topo da montanha. Esse va- 
lor é colocado de volta nos endereços 
57356 e 57357, para que a rotina de mo- 
vimentação da pedra comece nessa po- 
sição, quando for novamente chamada. 


RR Wine À 

A rotina aqui apresentada tem duas 
seções principais. Ambas são chamadas 
pela parte do programa publicada no ar- 
tigo anterior da série Avalanche. A pri- 
meira delas, que começa no rótulo BOK, 
seleciona e imprime na tela um dos dois 
padrões de pedra. Em seguida, troca o 
valor da variável que controla esses pa- 
drões, para que a outra figura seja im- 
pressa na próxima vez. 

A segunda seção, que começa no ró- 
tulo BRI, apaga a pedra se ela tiver che- 
gado ao fim da encosta ou à água, re- 
colocando-a no topo do morro. 

Assim que tiver digitado e montado 
as linhas que se seguem, a rotina de mo- 
vimentação da pedra estará pronta pa- 
ra funcionar. Mas lembre-se de que vo- 
cê deve ter o resto do jogo na memória, 
já que outras rotinas, como CHARPR, 
por exemplo, serão chamadas. 





10 ORG 19853 

20 BOK LDA 18260 
30 BEQ BMN 

40 LDX 18253 

50 LDU 418038 

60 JSR CHARPR 

70 CLR 18260 

BO ARTS 

90 BMN LDX 18253 





100 LDU 418014 
110 JSR CHARPR 
120 LDA 41 

130 STA 18260 

140 ARTS 

150 BRI LDX 18253 
160 LDU 41536 

170 JSR CHARPR 
180 LDX 43070 

190 STX 18253 

200 RTS 

210 CHARPR EQU 19402 


Existem, na memória, dois padrões 
diferentes da pedra, que são impressos 
na tela alternadamente, dando a impres- 
são de que a figura está rolando. 

Para a criação desse efeito, o proces- 
sador precisa saber qual das duas figu- 
ras foi impressa na última vez. Obtém 
tal informação consultando uma baliza 
no endereço 18260. O conteúdo dessa 
posição é carregado no acumulador. Se 
for O, a instrução BEQ BMI salta para 
a rotina que imprime uma das figuras 
da pedra. Se não for, o programa con- 
tinua e imprime a outra. 


A PEDRA ROLA 





Caso o programa continue, X é car- 
regado com o conteúdo da posição de 
memória 18253. Esse endereço armaze- 
na a posição onde a pedra irá ser impres- 
sa. O registrador U é carregado com o 
número 18038, endereço inicial de uma 
das figuras da pedra. 

O processador salta para a rotina 
CHARPR, que imprime os últimos oito 
bytes da pilha do usuário na posição de 
tela que está sendo apontada pelo con- 
teúdo do registrador X. 

A instrução CLR 18260 altera a ba- 
liza no endereço 18260. O processador 
a executa quando a baliza tem valor 1. 
CLR 18260 apaga esse valor, colocan- 
do O em seu lugar. Assim, na próxima 
vez que a rotina da pedra for chamada, 
o processador se encarregará de execu- 
tar a outra parte e imprimir a segunda 


figura da pedra. Depois, a baliza é ze- 
rada e o processador retorna. 

A parte seguinte dessa rotina simples- 
mente imprime a outra figura da pedra. 
O registro é carregado com o mes- 
mo valor, mas o apontador da pilha do 
usuário, U, é carregado com o endere- 
ço inicial na memória da outra figura da 
pedra, 18104. Em seguida, a rotina 
CHARPR é chamada e realiza a impres- 
são na tela. O processador executou es- 





sa parte da rotina porque a baliza em 
18260 tinha o valor O. Consequentemen- 
te, 1 é carregado no acumulador e ar- 
mazenado em 18260. A troca da baliza 
faz com que, na próxima vez, a outra 
figura da pedra seja impressa. 

A rotina BRI é chamada quando a 
pedra chegou ao fim da encosta ou atin- 
giu a água. Sua função consiste em apa- 
gar a pedra e inicializar sua posição pa- 
ra o topo da montanha. A instrução 








LDX 18253 carrega no registrador X a 
posição atual da pedra na tela; U é car- 
regado com o endereço inicial de um ca- 
ractere de céu na memória. A rotina 
CHARPR imprime, então, um bloco de 
céu sobre a pedra, apagando-a. 

O registrador X é carregado com 
3070, posição inicial da pedra na tela 
quando ela se encontra no topo da mon- 
tanha. Esse valor é armazenado em 


18253, a variável que carrega a posição 





em que a pedra será impressa na próxi- 
ma vez. 

Para testar a rotina de movimentação 
da pedra, execute estas linhas em BA- 
SIC com o resto do programa. 


5 POKE 30000,57 

10 EXEC 19426 

20 EXEC 19781 

30 FOR K=1 TO 100:NEXT:GOTO 20 


A linha 5 só será necessária se você 
tiver feito a gravação da rotina da mú- 
sica separadamente. 


A rotina que apresentamos a seguir 
tem duas seções principais. Ambas são 
chamadas pela parte do programa pu- 
blicada no artigo anterior da série Ava- 
lanche. A primeira seção imprime a se- 
gunda figura da pedra, que se alternará 
com a primeira, dando a impressão de 
que a pedra está rolando. Além disso, 
verifica também se nosso personagem 
foi atingido pela pedra. 

A segunda seção apaga a pedra caso 
ela tenha chegado ao final da encosta ou 
à superfície do mar e inicializa sua po- 
sição no topo da montanha. 

Depois de digitar e montar as próxi- 
mas linhas, a rotina de movimentação 
da pedra estará completa e pronta para 
funcionar. Mas lembre-se de que o res- 
to do jogo precisa estar na memória, 
pois as tabelas de padrões e de cores são 
necessárias nesta rotina. Para obter o 
efeito desejado, é preciso, também, que 
a montanha esteja na tela. 


10 org 54530 

20 ld h1, (62407) 
30 ld de, (-5200) 
40 add hl,de 

50 push hl 

60 call 7á 


70 cp 1 

Bo jr z.bn 
90 cp 5 

100 yr z,bn 
110 Cp 7? 


| 
| | | 
” E E 


120 yr z.bn 

130 cp 11 

140 jr nz,bu 

150 bn ld a,2 
160 ld (-5201),a 
170 bu pop hl 

180 ld a,l? 

190 push hl 

200 call 77 

210 pop hl 

220 inc hl 

240 call 77 

250 ld a,0 

260 ld (-5195),a 
270 ret 

280 org -10953 
290 ld h1, (62407) 
300 ld de, (-5200) 
310 add hl,de 
320 ld a,255 

330 call 77 

340 ld h1,255 

350 ld (-5200),h1 
360 ret 

370 end 


Na primeira parte da rotina de mo- 
vimentação, você teve que examinar o 
padrão que estava logo abaixo da pedra, 
para verificar se ela tinha afundado no 
mar ou se estava rolando. Identificare- 
mos agora o padrão que está na posi- 
ção onde a pedra será impressa, para Sa- 
ber se ela atingirá ou não Willhe. 

A posição de impressão da pedra, 
que está armazenada em -— 5200 e 
— 5199, é colocada no par DE. Lembre- 
se de que a variável de posição da pe- 
dra, que estava nesses endereços, foi de- 
crementada no fim da primeira parte 
desta rotina. Assim, quando a rotina é 
novamente chamada, a variável está 
apontando para a posição à esquerda da 
pedra. Ao executar essa parte da roti- 
na, O processador imprime a segunda fi- 
gura da pedra, dando a impressão de 
que ela está rolando. 

O par HL é carregado com o endere- 
ço inicial da Tabela de Nomes da VRAM 
(TN). A posição que está em DE é so- 
mada ao endereço em HL, que passa a 
conter efetivamente o endereço equiva- 





A PEDRA ROLA 










































LEITURA E ESCRITA 

NA VRAM DO MSX 
A VRAM é tratada pelo MSX como 
| se fosse um periférico. Portanto, são 
necessários alguns artifícios para colo- 
| carmos dados nessa memória auxiliar, 
especialmente em linguagem de máqui- 
| na, quando não dispomos dos coman- 
dos VPEEK e VPOKE. 

Em nosso jogo, usamos cinco roti- 
nas para escrever e ler na VRAM. Seus 
endereços são: /4, /7, BE, B9 e 92. 
Todas empregam os comandos OUT e 
IN para escrever e ler através da porta 
| 152. As rotinas dos endereços 80 e 83 
controlam o destino do byte enviado 

por essa porta. 


lente a essa posição na tela, Em segui- 
da, o valor de HL é guardado na pilha, 
sendo utilizado na impressão da pedra. 
A rotina 74 da ROM é chamada. Ela 
coloca no acumulador o valor da posi- 
ção da VRAM apontada por HL, ou se- 
ja, realiza a leitura da VRAM. O acu- 
mulador passa o conter o código dopa- 
drão que está à esquerda da pedra. Es- 
se código é comparado com 1,5,7ell, 
valores que correspondem aos diferen- 
tes desenhos das pernas de Willie. Caso 
o valor lido não seja nenhum desses, a 
instrução jr nz,bu faz o processador pu- 
lar as próximas instruções. 





WILLIE É ATINGIDO 


Se o pobre Willie tiver sido mortal- 
mente atingido pela pedra, a variável no 
endereço — 5201 deve ser ajustada com 
o valor 2. Para isso, colocamos 2 no 
acumulador e carregamos o conteúdo 
deste em — 5201. 


Inevitavelmente a pedra irá rolar uma 
posição à esquerda. Se Willie não esti- 
ver nessa posição, não se preocupe. Ca- 
so contrário, podemos ter a certeza de 
que ele foi esmagado. 

A posição na Tabela de Nomes da 
VRAM é recuperada da pilha, voltan- 
do para o par de registros HL. O acu- 
mulador A é carregado com o código do 
primeiro padrão da figura da pedra (a 
metade esquerda será impressa primei- 
ro). O valor de HL é novamente carre- 
gado na pilha, pois será usado na im- 
pressão da outra metade. A rotina 77 da 
ROM é chamada. Ela coloca o valor 
contido no acumulador na posição na 
VRAM apontada por HL. Já a utiliza- 
mos várias vezes na série Avalanche. 

| O endereço da VRAM é recuperado 

da pilha para HL, onde é incrementa- 
do. Esse par de registros passa, então, 
a apontar para uma posição à direita na 
tela, onde será impressa a metade que 
está faltando. O acumulador é carrega- 
do com 19, o código dessa metade, e a 
rotina 77 é chamada outra vez. 

A segunda figura da pedra ocupa 
duas posições na tela, movendo-se meio 
caractere de cada vez. Essa estrutura de 
duas metades faz com que o movimen- 
to se realize de modo muito mais suave 
e continuo, acentuando a impressão de 
que a pedra está rolando. 

O deslocamento da posição da pedra, 
um caractere para a esquerda (como 
ocorreu na primeira parte da rotina) e, 
depois, meio caractere, mantém uma va- 
riação tão suave na posição em — 5200 
e — 5199, que não há necessidade de ve- 
rificar se a pedra está no chão. 

Agora, falta apenas um detalhe: ajus- 
tar a variável do tipo de pedra a O, para 
que, quando a rotina for novamernite 
chamada, o processador execute a ou- 
tra parte. Para isso, colocamos 0 no acu- 
mulador e carregamos seu conteúdo no 
endereço — 5195. 


























Por que não usamos sprites para repre- 
sentar as pedras no MSX”? 

Os sprites poderiam, de fato, apre- 
sentar algumas vantagens sobre os blo- 
cos gráficos. Com eles, obteríamos os 
movimentos mais suaves e, também, 
não precisaríamos apagar a última po- 
sição da figura já que isso é feito auto- 
maticamente. | 

Mas não foi sem razão que optamos | 
pelos blocos gráficos. Primeiro, só é | 
permitida uma cor no sprite. Além dis- 
so, a detecção da colisão de um sprite 
com outras estruturas complicaria mui- 
to o programa. Por fim, não poderíamos 
ter, como requer o jogo, mais do que 
quatro figuras simultaneamente na 
mesma linha. 

























RECOMEÇA A AVALANCHE 


A rotina mo é chamada pela primei- 
ra parte da rotina de movimentação 
sempre que a pedra chega ao fim da en- 
costa ou atinge o mar. Ela apaga a pe- 
dra da sua posição atual e reajusta essa 
posição para o topo da montanha. 

Para apagar a pedra, o endereço ini- 
cial da TN da VRAM é colocado no par 
de registros HL. A esse endereço soma- 
se a posição atual da pedra, que está em 
DE. O valor 255, que corresponde ao 
código do padrão de céu, é colocado no 
acumulador. A rotina 77 é chamada e 
imprime o padrão de céu na posição que 
a pedra ocupava, 

O par HL é carregado com 255, a po- 
sição da pedra no topo da encosta. Es- 
se valor volta para — 5200 e — 5199. 
Quando a rotina de movimentação for 
chamada, a pedra estara nessa posição. 











DISCOS 
RÍGIDOS 








Embora muito úteis, os disquetes têm 
um inconveniente: a baixa capacidade 
de armazenamento. Se você precisa de 
maior espaço de memória e velocidade 
de acesso, o disco rígido é a solução. 


Em artigos anteriores, discutimos as 
características e as vantagens dos discos 
flexíveis (também chamados floppies ou 
disquetes) para os usuários de micro- 
computadores. Esses periféricos são for- 
midáveis, em termos de capacidade de 
armazenamento, facilidade de uso e ve- 
locidade de acesso, quando comparados 
com outras formas de gravação magné- 
tica de informação. 

Entretanto, também apresentam des- 
vantagens. A principal é a incapacida- 
de de atender a demandas de armazena- 
mento maiores do que as habituais. 

Os disquetes de face simples (para as 
linhas TRS-80, TRS-Color, Apple e 
TK-2000) têm capacidade em torno dos 
160-180 Kbytes. Pode parecer muito, 
mas é suficiente apenas para cerca de 
noventa páginas de texto, ou alguns pro- 
gramas e arquivos de dados pequenos. 
Os disquetes de dupla face têm capaci- 
dade de armazenamento de cerca de 
320-360 Kbytes — o que também não é 
muito, considerando-se a espantosa ra- 
pidez com que um usuário médio enche 
até centenas de disquetes. 

Não seria interessante ter todos os 
programas e arquivos de dados em um 
único disco? Para isso, existe uma so- 
lução: o disco rígido. Embora ainda se- 
ja um periférico muito caro (sobretudo 
no Brasil), seu preço tende a se tornar 
acessível. Não há exagero em afirmar 
que, mais cedo ou mais tarde, todos os 
micros pessoais serão vendidos com uma 
unidade embutida de disco rigido, co- 
mo já ocorre com os micros profissio- 
nais da linha PC-XT. 


O QUE É UM DISCO RÍGIDO 





O disco rigido (hard disk, em inglês) 
é feito de metal, e não de plástico flexí- 
vel, como o disquete. Por essa razão, 
apresenta mais estabilidade térmica e es- 


trutural, o que lhe permite maiores ve- 
locidades de rotação (e acesso) e maior 
densidade de gravação, Essas caracteris- 
ticas resultam numa grande capacidade 
de armazenamento. 

A desvantagem do disco rígido é que, 
em geral, ele não pode ser removido e 
trocado facilmente por outro, como o 
disquete, pois é fixo dentro da unidade 
acionadora. Existem unidades de disco 
rigido que são totalmente intercambiá- 
veis — inclusive a cabeça de gravação 
e leitura. 

Nos discos rígidos mais utilizados pa- 
ra micros, a cabeça de gravação e leitu- 
ra nunca entra em contato com a super- 
fície do disco, como acontece com o dis- 
quete. Ela “'sobrevoa” a superficie a 
uma distância muito pequena (a alguns 
milésimos de milímetro); por isso, odes- 
gaste da superfície ferromagnética é pra- 
ticamente nulo. 

Esse sistema garante maior durabili- 
dade à unidade, mas requer que ela se- 
ja isolada do exterior, por meio de vá- 
cuo ou fluxo forçado de ar. A partícula 
mais ínfima de poeira ou fumaça que se 
introduzir entre a cabeça e o disco pode 
danificá-lo. 

Essa tecnologia é conhecida como 
Winchester, denominação que se costu- 
ma estender aos próprios discos rígidos. 
Como ela envolve dispositivos mecâni- 
cos e eletrônicos complexos e delicados, 
os custos dos discos rigidos tornam-se 
bem mais caros. 





CAPACIDADE E VELOCIDADE 


A capacidade de armazenamento dos 


“discos Winchester é espantosa. Os de 


menor capacidade têm por volta de 5 
Mbytes de espaço (5 milhões de caracte- 
res), o que equivale a cerca de trinta dis- 
quetes de face simples! 

São cada vez mais populares os dis- 
cos rígidos de 10, 15 e 20 Mbytes, em- 
bora as maiores capacidades possam ser 
usadas apenas por micros de 16 e 32 bits. 
Mas já existem discos de boa capacida- 
de para o Apple e o TRS-BO. 

A velocidade do disco rígido é cerca 
de vinte a trinta vezes maior que a dos 
disquetes, dependendo do modelo. Isso 
faz uma enorme diferença no momento 
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O QUE É UM DISCO RÍGIDO 


CAPACIDADE E VELOCIDADE 


UM DISCO RIGIDO 
APLICAÇÕES 


de carregar um programa extenso na 
memória do micro. 





COMO CONECTAR UM DISCO RÍGIDO 


Desde que existam modelos de disco 
rígido disponíveis para o seu microcom- 
putador, você não terá dificuldades em 
utilizar este periférico. 

Em primeiro lugar, será necessário 
uma interface controladora — uma cai- 
xinha ou placa, que pode ser conectada 
ao computador (internamente, por 
exemplo, nos micros da linha Apple), 
facultando-lhe o controle e intercâmbio 
de dados com a unidade de disco. 

Muitos micros de oito bits têm pla- 
cas de controle para disquetes que já in- 
cluem o controlador de discos rígidos. 
Em alguns casos, porém, é preciso ad- 
quirir uma interface própria. 

A unidade de disco rígido é apresen- 
tada normalmente em duas versões: em 
gabinetes separados do console do com- 
putador, e em “gavetas” que podem 
ser inseridas no local destinado a uma 
unidade acionadora de disquetes. Em 
alguns computadores (como os PC) 
é possível instalar a unidade Winches- 
ter em espaço reservado no gabinete da 
UCP, sem tomar o lugar de um disquete. 

Não convém dispor apenas do disco 
rigido: é melhor ter também uma ou 
duas unidades de disquetes — só assim 
poderemos obter a cópia cautelar (back- 
up) do disco rígido e a transferência de 
programas e dados. 

O disco rígido tem de fato a desvan- 
tagem de requerer frequentemente có- 
pias de seu conteúdo em disquete, pois, 
se ocorrer um defeito, a perda é total. 
Por isso, muitos usuários adquirem jun- 
to com o Winchester uma unidade de fi- 
ta de back-up (chamada streamer), que 
possibilita a execução dessa cópia de 
uma vez só, e em poucos minutos. 

Resta considerar a fonte de alimen- 
tação. O disco rigido gasta mais ener- 
gia do que uma unidade de disquetes, 
exigindo, quase sempre, uma fonte de 
alimentação separada da UCP. Alguns 
fabricantes vendem a unidade de disco 
rigido com fonte própria de alimenta- 
ção,-o qual é muito conveniente, sobre- 
tudo se a unidade não é interna. 














PÃO IE ad <A RS 


| 











UMA PLANILHA 


Quando uma planilha começa a ser 
planejada e está como uma folha em 
branco, muitas vezes ainda não sabemos 
exatamente de que maneira iremos apro- 
veitá-la. Os exemplos dados no artigo 
anterior e as sugestões que aqui apresen- 
tamos vão ajudá-lo a definir uma pla- 
nilha que seja realmente útil. O progra- 
ma permite a montagem de diversas pla- 
nilhas, que você poderá gravar e recar- 
regar a qualquer momento. 

' Uma planilha para registrar e plane- 
jar suas despesas domésticas, onde as 
entradas aparecem sob títulos como alu- 
guel, transporte, saúde, consertos etc. 
constitui uma boa opção. Mas, se você 
tem que fazer um número muito gran- 
de de consertos ou reformas na casa, por 
exemplo, pode ser interessante montar 
uma planilha só para eles. Nesse caso, 
separe os diferentes tipos de reforma — 
estofamento dos móveis, decoração, 
troca das telhas e calhas, colocação de 
grades nas janelas —, especificando as 
quantias gastas mensalmente ou trimes- 
tralmente com cada um. O programa se 
encarregará de fornecer os valores totais 
para cada categoria, assim como seu pe- 
so relativo no conjunto dos gastos com 
reformas. 

Uma outra folha pode incluir as des- 
pesas da família com itens como ali- 
mentação, vestuário, educação, saúde, 
transporte e lazer. Utilize-a para listar 
esses gastos por semanas, meses ou por 
pessoas da familia. 

Mas lembre-se de que pode recorrer 
à planilha para manipular qualquer ti- 
po de informação que necessite de uma 
organização lógica. Uma planilha para 
sócios de um clube pode conter, por 
exemplo, os nomes, telefones e mensa- 
lidades pagas, assim como os compare- 
cimentos a reuniões. 

Qualquer que seja sua escolha, a pla- 
nilha se revelará um excelente instru- 
mento de controle. Se você consultar o 
artigo da página 201, verá que ela nada 
mais é que uma sofisticada matriz bidi- 
mensional. Permite um controle maior 
dos dados porque comporta o uso de 
fórmulas, o que torna possível a obten- 
ção imediata dos resultados. 

Aplicações financeiras constituem o 
tipo mais frequente de uso. Mas as va- 
“riações, nessa área, também são ilimi- 


ELETRÔNICA (2) 


tadas. Planilhas podem conter detalhes 
de pedidos, descrições de itens, evolu- 
ção nos custos, descontos etc. São úteis, 
também, na elaboração de folhas de pa- 
gamento, fornecendo listagens dos no- 
mes dos empregados e calculando horas 
trabalhadas, salários e adiantamentos, 
Sua cooperação é, ainda, valiosa no 
controle de estoque e contas, em geral; 
no planejamento de orçamentos de'fir- 
mas e em muitos outras tarefas ligadas 
ao setor empresarial. 


DIGITE O PROGRAMA | 


A parte do programa aqui listada de- 
ve ser adicionada à que apresentamos no 
artigo anterior. As linhas restantes se- 
rão dadas no último artigo da série, que 
conterá instruções detalhadas sobre o 
uso do programa. Assim, carregue a lis- 
tagem anterior, digite esta e grave o pro- 
grama para, depois, acrescentar a ter- 
ceira parte. 





420 FOR a=fc TO c: FOR b=fr TO 
tr 
430 IF 25(3,2)="C” THEN LET v 
(2)=v(2)+1: LET v(4d4)=v(4)+Hivig 
14226) 
440 IF z5$(3,2)="Rº THEN LET v 
(3)=v(3)+(v(3)<>226): LET ví(l)= 
v(1)+1 
450 IF v(1)<25 AND v(2)<31 AND 
v(3)=26 THEN GOTO 470 
460 IF v(1)>24 OR v(2)>230 OB v 
(3)>24 OR v(4)>30 THEN GOTO 
570 
470 IF v(l)<l OB v(2)<1l OR v(3 
J<1 OR v(4)<] THEN GoTo 570 
4B0 LET aS=CHRS (v(1)+64)+5TRS5 
v(Z)+CHAS (v(3) +64) +STAS v(4)+ 
os 
490 LET c=LEN aS: IF c>8 THEN 
RETURN RESTORE 1630: FOR q=1 
TO 11: LET £f=0: READ m$S: FOR w 
=] TO € 
5800 IF m$(w)="A” 
1650: IF £ THEN 
510 IF m$(w)="Nº 
1670: IF f THEN 
520 TF mS(w)="Z" 
1710: TF f THEN 
530 IF m$(w)="0" 
1690: IF fÍ THEN 


GOSUB 
560 
GOSUB 
560 
GOSUB 
560 
GOSUB 
560 


THEN 
coTo 
THEN 
GOTO 
THEN 
GOTO 
THEN 
GOTO 








Descubra para onde vai o seu dinheiro | 
ou planeje o futuro de seus negócios ] 
utilizando esta prática planilha. 
Adicione mais uma parte ao programa 
iniciado no artigo anterior. | 





25 APLICAÇÕES 25 


| PLANEJAMENTO DA PLANILHA 5 UMA ASSOCIAÇÃO 
USOS GERAIS * USOS FINANCEIROS 


“ORÇAMENTO FAMILIAR IM SALÁRIOS DE PESSOAL 


DESPESAS DOMÉSTICAS ESTOCAGEM 


E CONTROLE DE Ed DIGITE O PROGRAMA 
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S40 NEXT w: LET z=q: GOSUB 
1140: IF NOT £ THEN LET s3=" 
"+. FOR w=1 TO c: LET 55 
(w)=as(w): NEXT w: LET dS(b,a, 
9 TO 16)=9$: LET dS(b,a,18)= 
CHARS z: LET ds(b,a,17)="1": 


NEXT b: NEXT a: RETURN 

550 GOTO 570 

560 NEXT q 

570 RETURN 

S80 LET e=c: LET a$S=" > 

590 PRINT tIL;AT 0,x; BRIGHT 1; 
600 PAUSE 0: LET i1=CODE INKEYS 
610 IE 1>88 THEN GOTO 600 

620 IF 1=13 THEN GOTO 650 

630 IF 1=12 THEN LET as(d-e)= 
» ". LET e=met+l: LET x=x-1 

640 LET aS(4-e) =CHAS 1: PRINT 
41;AT 0,x;CHAS à: LET x=x+1: 
LET e=e-l: IF e>0 THEN PAUSE 


10: GoTo 590 
650 IF e>i AND (d=1l OB d=4 OR 


d=5) THEN GOTO 590 


655 IF e>0 AND (d=2 OR d=3) 
THEN GOTO 590 


660 PAUSE 10: PRINT 4&1;AT 0,0; 
*: RETURN 

670 LET i8m="*º 

680 FOR z=1 TO 3 

o. “dg 1$=18+(aS(z) AND aS(z) 

700 NEXT = 

f1O IF LEN 18=3 THEN JF 1S8(1) 

<A” OR 158(1)2"X" OR 158(2)<"0" 

OR 15(2)279” OR 1$(3)<"0” OR à 

3(3)>"9” THEN LET £=): RETURN 

720 IF LEN 18=3 THEN IF VAL 


18(2 TO 3)=0 OR VAL 138(2 TO 3) 
>30 THEN LET f=1: RETURN 

730 IF LEN u$=2 THEN TF 15(1) 
c"A” OR àS(1)>"X” OR 18(2)<"1” 
OR 18(2)>"9” THEN LET f=1: 
RETURN 

740 IF d=2 THEN JIF 
AND 1S8(1)<>"R” THEN 
RETURN 

7580 IF d=3 THEN TF 
AND 15(1)<>"R” THEN 
RETUAN 

760 LET zS8(d,2 TO )=iS: LET 25 
(d,1)=CHRS (LEN 15+48): LET £= 
O: RETURN 

770 LET fc=(CODE 2z5(4,2))-64: 
LET tc=(CODE z$(5,2))-64: LET 
fr=VAL z8(4,3 TO (I+VAL z5(4,1 


A, 


1S(1)<>"A” 
LET f=l1: 


1S (1)€<2"C” 
LET £f=1: 











15): LET tr=VAL 28(5,3 TO (+ - 
VAL z58(5,1))) 


780 IF z$(3,2)="C” THEN IF fc 
<>Dtc OR fr>tr THEN LET f=1: 
RETURN 

790 IF z$(3,2)="A” THEN IF fc 
>tc OR Er<>tr THEN LET f=l): 
RETURN 

800 LET f=0: RETURN 

810 FOR y=1 TO 30: FOR x=1 TO 


24: LET os=Q0 

B20 IF d$S(vwy,x,17)="1" THEN 

LET z=CODE dS(vy,x,): GOSUB 880 
GOSUB 1010: LET st=1: LET as 

=STAS t: LET os=LEN aS: IF L> 

99999.99 THEN LET fS(yv,x,1)= 

"6" 

830 IF oB>8 THEN LET at=08-/ 

840 IF os=0 THEN GoTo 860 

850 LET s$=" ". FOR u=s 

t TO os: LET eS(u-st+1)=aS (u): 

NEXT u: GOSUB 1410: LET dS(y,x 

. TO B)=95 

860 LET i=IN 32766: IF 1=252 

THEN PRINT f1L;AT 0,0; PAPER 2 

- INK 7;"CALCULO ABANDONADO” : 

RETURN 

870 NEXT x: NEXT vy: RETURN 

880 LET as=ds(y.x,9 TO 16) 

890 IF z=1 THEN LET v(1)=( 

CODE n5(1))-64: LET v(2)=VAL B 

S(2): LET v(3)= (CODE s$(3))-64 

- LET v(4)=VAL aS(4): LET 03=8 

S(5): RETURN 

900 IF z=2 THEN LET v(1)=( 

CODE 98(1))]-64: LET v(Z)=VAL 8 

s(2 TO 3): LET v(3)= (CODE s5(4 

)J-64): LET v(4) =VAL s$(5): LET 
og=s5 (6): RETURN 


660 AS=DS(1,J) :B$=MIDS(AS,2) 
670 AT=ASC (AS) 

680 IF AT=128 THEN PRINT STRING 
S$(7,32);:GOTO 720 

690 IF AT=129 OR AT=130 THEN PR 
ae USING "3 &";B3; :GOTO 72 
700 FOR U=1 TO LEN(BS):IF MIDS( 
BS,U,1)<>CHARS(32) THEN PRINT MI 
DS (B$,0U,1); 

710 NEXT U 

720 RETURN 

730 Cl=ASC(Z$)-64:C2=VAL (MIDS (Z 
S$,2)):V=D(C1,C2) : RETURN 

740 PRINT €448,"TRABALHANDO” 


—— ã 


a 


tm, = = pr À to 


Q 


o 










K 
'Ê | 


750 FOR J=1 TO RX 

760 FOR I=1 TO CX 

770 D(I,])=0:IF ASC(DS(I,J))=12 
9 THEN D(I,J)=VAL (MIDS (DS (1,9), 
2)) 
7BO 
790 


NEXT I.d 

FOR J=1 TO RX 

800 FOR I=1l TO CX 

810 PRINT 6448," TRABALHANDO NA 
CELULA ";CHAS (1+64) ;MIDS(STRS(J 
)42) 
820 
130 
830 
840 
B50 
B60 
870 
B8B0 
890 


IF ASC(DS(I,J))<>131 THEN 1 


AS=MIDS (DS (1,J).2) 

0$=MIDS (AS,7,1) 

IF 08="k&" THEN 1050 

IF 09$="5" THEN 1090 

ZS=LEFTS (AS,3) 

GOSUB 730 

Vl=V: Z$=MIDS (A5S,4,3):GOSUB 

730:VZ2=V 

900 DP=VAL (RIGHTS (AS,1)) 

910 ON INSTR (1,0PS,05) GOSUB 1 

000,1010,1020,1030,1040 

920 OV=0:IF DP=0 THEN PUS="++tt 

44" :MP=7:GOTO 950 

930 PUS=STRINGS(7-(DP+1),"4")+" 
"+STRINGS (DP,"4"):MP=7-(DP+1) 

940 IF LEN(PUS)>7 THEN RVS=" < 

OV>" : OV=1 

950 D(I,J)=RV 

960 IF AV<O THEN MP=MP-1 

970 ML=LEN(MIDS (STARS (INT (BVU+.5) 

),2)) 

980 IF ML>MP THEN AVS=" 

OV=1 

990 GOTO 1160 

1000 RV=V1I+V1:RETURN 
1010 AV=V1-V2: RETURN 
1020 AV=V1I*V2: RETURN 
1030 IF V2=0 THEN RV=0:RETURN E 

LSE BRV=Vl/V2:RETURN 

1040 AV=V1*V2/100:RETURN 

1050 p1=ASC (AS) -64:P2=ASC(MIDS( 

AS,4,1))-64:C2=VAL (MIDS (AS,2,2) 
) :RV=0 

1060 FOR Cl=P1l TO P2 

1070 RV=BV+D(C1,C2) :NEXT 

1080 DP=VAL (RIGHTS (AS,1)):GOTO 
920 

1090 PI=VAL (MIDS (A$S,2,2)):P2=VA 
L (MIDS (A$,5,2)):ClI=ASC(AS)-64:R 
V=0 

1100 FOR C2=Pl TO P2 

1110 ARV=RV+D(C1,C2) :NEXT 

1120 DP=VAL (RIGHTS (AS,1)):GOTO 
920 

1130 IF ASC(DS(1I,J))<>128 THEN 


/ 


<OV>": 





pf 





ch 





& ão, 
qa q 
> 2, 








1150 

1140 RVS=STRINGS(7,32):GOTO 116 

Õ 

1150 RVS=MIDS (DS (1,J),2) 

1160 IF I>=€CS AND I<=C5+3 AND J 

>=RS AND J<=ARS+11 THEN PRINT €( 

J-RS)*32+35+(1-CS)*7,"";:PF=1 E 

LSE PF=0 

1170 IF(ASC(DS(1I,J))>=128 AND A 

SC(DS(1,J))<=130) OR 0OV=1 THEN 

1200 

1180 IF PF=1 THEN PRINT USING P 

US; AV; 

1190 GOTO 1210 

1200 IF PF=1 THEN PRINT USING"t 

&" ; BUS; 

NEXT I,dJ 

RETURN 

CLS: INPUT"DESEJA SALVAR ES 

TA FOLHA (S/N) ";AS 

1240 IF AS<>"S5S”" THEN 1340 

1250 LINE INPUT"NOME DO ARQUIVO 

"ES 

1260 OPEN "0",+I-1,F5S 

1270 FOR J=1 TO RX 

1280 FOR I=1 TO CX 

1290 IF ASC(DS(1I,J))=128 THEN 1 

320 

1300 Z5=DS(1I,J):MIDS(Z5,1,1)=CH 

AS (ASC(MIDS (Z58,1,1))-95) 

1310 PRINT 4-1, STRS(I). STRS(J): 

PRINT 4-1,25 

1320 NEXT I,J 

1330 CLOSE f-1 

1340 CLS:MO=1:GOSUB 70:RETURN 

1350 CLS: PRINT"DESEJA CARREGAR 

UMA FOLHA DO GRAVADOR 7":PRI 

NT” (O CONTEUDO DA MEMORIA SERA 
ADICIONADO AO DA FITA)":INP 

UT "S / N ";AS 

1360 IF AS<>"S" THEN 1480 

1370 PRINT"PRESSIONE <ENTER> PA 

RA CARREGAR O PROXIMO ARQUIVO D 

A FITA OU DIGITE NOME DO ARQ 

VIVO DESEJADO”: PRINT 

1380 LINE INPUT"NOME DO ARQUIVO 

fo ER) 

1390 OPEN “IF, &-1,EFS 

1400 IF EOF(-1l) THEN 1470 

1410 INPUT&-1,A5,BS:LINE INPUT+ 

=| ta 

1420 MIDS(CS,1,1)=CHRS(ASC(MIDS 

(C8,1,1))+95 

1430 CI=VAL(AS) :C2=VAL (BS) :DS(C 

1,C2)=€Cs 

1440 IF C1l>CX THEN 


1210 
1220 
1230 


CX=Cl 





1450 IF C2>RX THEN RX=C2 

1460 GOTO 1400 

1470 CLOSE 4-1 

1480 CLS:CC=1:CR=1:CS=1:R5=1:MO 
=1:GOSUB 70:RETURN 


Is 


660 AS=DS(I,J) :B$S=MIDS(AS,2) 
670 AT=ASC(AS) 

680 IF AT=128 THEN PRINTSTRINGS 
(7,32);:GOTO 720 

690 IF AT=129 OR AT=130 THEN PR 
INTUSING”"N 1" ;B$;:GOTO 720 


700 FOR U=1 TO LEN(BS):IF MIDS(. 


BS,U, 1)<>CHAS (32) THEN PRINTMIDS 
(BS,U, 1); 

710 NEXTU 

720 RETURN 

730 CI=ASC(Z5)-64:C2=VAL (MIDS(Z 
S,2)):V=D(C1l,C2) :RETURN 

740 LOCATE 0,20:PRINT"TRABALHAN 
DO..." ;SpC(24) 

750 FOR J=1 TO RX 

760 FOR 1=1 TO CX 

770 D(I,J)=0:IF ASC(DS(I,J))=12 
9 THEN D(I,J)=VAL (MIDS (DS (I,J), 
2)) 

780 NEXT I,J 

790 FOR J=1 TO RX 

800 FOR I=1 TO CX 

810 LOCATE 0,20:PRINT"TRABALHAN 
DO NA CEL ";CHRS(1+64) ;MIDS (STR 
S(J),2) 

B20 IF ASC(DS(I,J))<>131 THEN 1 
130 
830 
B40 
850 
860 
870 
880 
890 
730 
900 
910 


AS=MIDS (DS (1,J),2) 

0S=MIDS (AS,7,1) 

IF 05="." THEN 1050 

IF 08="S”" THEN 1090 
ZS=LEFTS(AS,3) 

GOSUB 730 

Vl=V: Z5=MIDS (A$S,4,3) :GOSUB 
“V2=y 

DP=VAL (RIGHTS (AS,1)) 

ON INSTR(1,0P5,05) GOSUB 10 
00, 1010, 1020, 1030, 1040 
920 OV=0:IF DP=0 THEN PUS="4tti+ 
444" :MP=7:GoTO 950 
930 PUS=STRINGS (7-(DP+1),"4")+" 
"+STRINGS (DP,"4") :MP=7-(DP+1) 
940 IF LEN(PU5S)>7 THEN AVS=" < 
OV>" :0V=1 
950 D(I,J)=AV 
960 IF RU<O THEN MP=MP-1 
970 ML=LEN(MIDS (STARS (INT (AV+.5) 


E see . o = 


980 IF ML>MP THEN RV$=" 
OV=1 

990 GOTO 1160 

1000 RV=V1+V2: RETURN 
1010 RV=V1i-V2: RETURN 
1020 AV=V1I*V2:RETUAN 
1030 IF V2=0 THEN BV=0:RETUBN E 
LSE AV=V1/V2:RETURN 

1040 AV=V1*V2/100: RETURN 

1050 PlI=ASC(AS)-64:P2=ASC(MIDS( 
AS,2,2)):RV=0 

1060 FOR Cl=Pl TO PZ 

1070 BV=AV+D(C1,C2):NEXT 

1080 DP=VAL (RIGHTS (AS,1)):GOTO 
920 

1090 PI=VAL (MID3(A$S,2,2)):PZ=VA 
L (MIDS (AS,5,2)):CI=ASC(AS)-64:R 
V=0 

1100 FOR C2=P1l TO PZ 

1110 ARV=AV+D(C1,CZ) :NEKT 

1120 DP=VAL (RIGHTS (A$S,1)):GOTO 


<OV>": 


920 

1130 

1150 

1140 

0 E 

1150 RV$=MIDS(D$S(1,J),2) 

1160 IF I>=€CS AND I<=CS5+4 AND J 

“=R5 AND J<=RS+15 THEN LOCATE ( 

1-C8)*7+3, (U-RS)+1:PF=] ELSE PF 

=] 

1170 IF (ASC(DS(1,J))2=128 AND 

ASC(DS(1I,J))<=130) OR OV=1 THEN 

1200 

1180 IF PF=1 THEN PRINTUSINGPUS 

RU; 

1190 GOTO 1210 

1200 IF PF=1 THEN PRINTUSING"+ 
Ni BVS: 

1210 NEXT I,J 

1220 RETURN 

1230 CLS: INPUT"QUER GRAVAR ESTA 

FOLHA? (S/N) T;AS 

1240 IF AS<>"S” THEN 1340 

1250 LINEINPUT "NOME DO ARQUIVO 

= "Es 

1260 FS$="CAS:"+F5:0OPEN FS FOR O 

UTPUT AS t1 

1270 FOR J=1 TO BX 


IF ASC(DS(I,J))<>2128 THEN 


AVS=STRINGS (7,32) :GOTO 116 


1280 FOR I=1 TO CX 

1290 IF ASC(DS(1I,J))=128 THEN 1 
320 

1300 Z$=D$(1I,J):MIDS(Z5,1,1)=CH 
A$ (ASC(MIDS(Z3,1,1))-90) 

1310 PRINT41,STARS(I);",";STRS(J 
) : PRINT$AI,ZS5 








1320 NEXT I,J 

1330 CLOSE +41 

1340 CLS:MO=1:GOSUB 70:RETURN 
1350 CLS: INPUT"QUER CARREGAR UM 
à FOLHA DO TAPE? (NOTE QU 
E A FOLHA DA MEMÓRIA SERA COMBI 
NADA COM A NOVA) ":AS 

1360 IF AS<>"S" THEN 1480 

1380 LINEINPUT "NOME DO ARQUIVO 
: FrES 

1390 FS="CAS:"+FS:OPEN FS FOR I 
NPUT AS 41 

1400 IF EOF(1) THEN 1470 

1410 INPUT 41,AS,BS:LINEINPUT 4 
1,cs 

1420 MID$(C5,1,1)=CHRS (ASC(MIDS 
(CS,1,1))+90) 

1430 CiI=VAL (AS) :C2=VAL (BS) :DS(C 
1,C2)=€8 

1440 IF C1l>CX THEN CX=C1l 

1450 IF C2>AX THEN RX=C2 

1460 GOTO 1400 

1470 CLOSE 41 

1480 CLS:CC=1:CR=1:CS=1:R8=1:MO 

=| :GOSUB7/0: RETURN 


Lá] 


660 AS = DS(I,J):B$S = MIDS (AS 
2) 

670 AU = ASC (AS) 

6B0 JIF AU = 128 THEN PRINT S 


PC( 7);: GOTO 720 

690 IF AU = 129 OR AU = 130 TH 
EN PRINT LEFTS (B5S,7); SPC( 7 
- LEN ( LEFTS (B3,7))): GOTO 

720 


700 UU = 0: FOR U = 1 TO LEN ( 
BS): IF MIDS (BS,U,1) < > CH 


RS (32) THEN PRINT MIDS (B5S,U 
1)::UU = UU + 


710 NEXT PRINT SPC( 7 - UU) 
720 RETURN 
730 CC) = ASC (289) —- G4:Ci = V 


AL ( MIDS (Z$,2)):V = D(C1,C2): 
RETURN 


740 VTAB 21: HTAB 1: PRINT "TR 
ABALHANDO” 

750 FOR J = 1 TO RX 

760 FORT = 1 TO ck 

770 D(I,)) = O: IF ASC (DS(I,J 
)) = 129 THEN D(I,J) = VAL (M 


IDS (DS(1I,J),2)) 
780 NEXT : 


NEXT 


790 FOR dq =1 TO RX 

800 FOR I = 1 TOCK 

B1lO VTAR 21: HTAB 1): PRINT "TR 

ABALHANDO NA CEL "; CHR$S (I + 6 
B20 IF ASC 
THEN 1130 
830 AS = MIDS (DS(1,J),2) 
B40 OS = MIDS (AS,/7/,1) 
850 IF OS = "A" THEN 1050 
B60 IF OS = "8" THEN 1090 
870 2Z5 = LEFTS (AS,3) 

B80  GOSUB 730 
B90 VL = V:Z5 = 
GOSUB 730:V2 = UV 
900 DP = VAL ( RIGHTS (AS,1)) 
905 IN = 1 

910 IF OS < > MIDS «(O0PS,IN,) 
) THEN IN = IN + 1: GOTO 910 
915 ON IN GOSUB 1000,1010,1020 
/1030,1040 

920 OV = O:MP = 7 

950 D(I,J) = RV 

960 IF BU < O THEN MP = MP-1 


(DS(T,0)) S > 134 


MIDS (AS,4,3): 


970 ML = LEN ( STARS ( INT (RV 


+ :59)) 


980 IF ML > MP THEN ARVS =" < 


oV>":0V = 1 

990 GOTO 1160 

1000 RV = V] + V2: RETURN 
1010 RU = Vl - V2: RETURN 
1020 RV = VI * V2: RETURN 


1030 IF VZ = O THEN RV = O: RE 
TURN 

1035 BU = Vl / VZ: RETURN 

1040 RU = Vl * VZ / 100: RETURN 
1050 Pl = ASC (AS) - G4:PZ = 
ASC ( MIDS (AS,4,1)) —- 64:€2 = 


VAL ( MIDS (AS,2,2)):BV = 0 


1060 FOR Cl = P1lTOPZ 

1070 RV = RU + D(C1I,C2): NEXT 
1080 DP = VAL ( RIGHTS (AS,1)) 
: GOTO 920 

1090 Pl = VAL ( MIDS (AS,2,2)) 
«P2 = VAL ( MIDS (AS,5,2)):Cl 


= ASC (AS) - 64:AV = Q 
1100 FOR C2 = Pl TO PzZ 


1110 RV = RV + D(C1,C2): NEXT 


1120 DP = VAL ( RIGHTS (AS,1)) 
: GOTO 920 

1130 IF ASC (DS(T,J)) < > 12 
8 THEN 1150 

1140 AVS = * ig 

1150 RVS = MIDS 4DS(T,J),2) 
1160 IFI> =€SANDI<S =cC 


À | 
| | 
| 
P 


S + 4 AND J) > = R98 AND JS = 


AS + 11 THEN VTAB J - RS + 2: 
HTAB (I - €8) * 7 + 4:PF = 1: 6 
oTO 1170 

1165 PF = 0 

11720 TF ( ASC (DS(1,J)) 


o DE 


28 AND ASC (DS(T,J)) < 130) 


OR OV = | THEN 1200 

1180 IF PF = 1 THEN PRINT SP 
C( 7 - LEN ( LEFTS ( STARS (RV) 
7))); LEFTS ( STR$ (RV),7):; 
1190 GOTO 1210 

1200 IF PF = 1 THEN PRINT RVS 
1210 NEXT NEXT 

1220 RETURN 

1230 HOME INPUT "QUER GRAVAH 


ESTA FOLHA? (S/N) ";AS 


1240 IF AS < 5> "5" THEN 1340 

1250 INPUT "NOME DO ARQUIVO "; 
FS 

1260 PRINT DS;"OPEN “;FS: PRIN 


T DS;"WRITE ";FS 


1270 FOR J = 1 TORA 

1280 FOR I = 14 TOCk 

1290 IF ASC (DS(I,9)) = 128 T 
HEN 1320 

1300 Z$ = DS(I,J):Z5 = CHARS ( 
ASC (Z8) - 90) + MIDS (28,2) 
1310 PRINT STRS (1); CHARS (13 
); STR$ (J); CHRS (13);253 

1320 NEXT : NEXT 

1330 PRINT DS;"CLOSE" 

1340 HOME :MO = 1: GOSUB 70: R 
ETURN 

1350 HOME INPUT "QUER CARREG 


AR UMA FOLHA DO DISCO? (N 
OTE QUE A FOLHA DA MEMORIA SERA 


COMBI NADA COM A NOVA) (S/N 
17 :;AS 

1360 IF AS < > "8" THEN 1480 

1380 INPUT "NOME DO ARQUIVO ”; 
FS 

1390 PRINT DS;"OPEN “;FS 

1400 PRINT DS;"READ ";FS 

1410 INPUT AS,BS5S,CS 

jJá20 CS = CHAS ( ASC (€C5) + 90 
) + MIDS (€83,2) 

1430 Cl = VAL (AS):C2 = VAL ( 


B$):DS(C1l,C2) = €$ 


1440 TF Ci > CX THEN CX = Cl 

1450 IF €2 > RX THEN RX = CZ2 

1460 coTo 1410 

1470 PRINT DS;"CLOSE” 

1480 HOME :CC = I:CR = 1:€S = 
1:RS = 1:MO = 1: GOSUB 70: GOTO 
320 




















Aceite o desafio lançado por seu 
microcomputador neste clássico jogo 
de lógica. Será que você é capaz 

de descobrir as cores sorteadas 

pela máquina, na ordem correta? 


O objetivo de Senha é descobrir as 
quatro cores sorteadas pelo computa- 
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dor, entre as seis possíveis, além da or- 
dem correta em que elas estão dispos- 
tas. Lembre-se de que pode ocorrer re- 
petição de cores. 

A cada tentativa, você deverá digitar 
as iniciais das cores — por exemplo, 
RLCC para roxo, laranja, cinza e cin- 
za. O computador, então, responderá 
com um código, para ajudá-lo a decifrar 
o segredo. Para cada cor correta em po- 
sição errada ele imprimirá um caracte- 


AS REGRAS DO JOGO 
DEFINIÇÃO DAS CORES 
O COMPUTADOR DÁ AS DICAS 
ESCOLHA A MELHOR 
ESTRATÉGIA 


re branco (ou a letra B), e quando a or- 
dem estiver correta, O caractere terá a 
cor preta (ou a letra P). É lógico que a 
ordem dos códigos não corresponde à 
das cores; isto tornaria o jogo muito fá- 
cil. Você tem doze chances para decifrar 
a senha, 

As cores usadas por cada programa 
são as seguintes: Amarelo, aZul, azul- 
Claro, Vermelho, Magenta e Branco pa- 
ra o micro Spectrum; Amarelo, aZul, 
Vermelho, azul-Claro, Magenta e La- 
ranja para o TRS-Color; Amarelo, Ver- 
melho, Roxo, Laranja, Magenta e Cin- 
za para o TK-2000, o Apple e o MSX. 


10 BORDER O: INK O: PAPER 4: 


CLS : LET N$="671254": DIM C( 
4): DIM G(4): DIM F(4,2): LET 
C$=" AZVCM” 


14 PRINT AT 16,0;"CORES :"""* 
A=AMARELO Z=AZUL C=AZUL CLARO 


V=VERMELHO M=MAGENTA B=B 
RANCO” | 
15 FOR N=USR "A” TO USR "A"+7 


- READ A: POKE N,A: NEXT N 
17 DATA 0,24,60,126,126,60,24 
O 
20 FOR K=1 TO 4: LET C(K)=VAL 
NS CINT (RND*5)+1): NEXT K: 
LET G=1 
30 INPUT "FACA A OPCAO ":;BS 
35 IF LEN BS<>4 THEN GOTO 30 
90 PRINT AT G,0;"0OPCAO No. "; 
G;AT G,14;: FOR K=1 TO 4: LET 
G(K)=(7*(BS(K)="B"))+(6*(BS(K 
J="A”"))+(BS(K)="Z")+(2* (BS (K) 
="V"))J+(5*(BS(K)="C"))+(3* (BS 
(K)="M"T)) | 
92 IF G(K)=0 THEN LET K=d: 
NEXT K: GOTO 30 | 
95 PRINT INK G(K); BRIGHT 1; 
CHAS l44;: IF K<>4 THEN 
PRINT BRIGHT 1," *; 
97 NEXT K 
100 PRINT AT G, 24; 
110 LET N=0: LET R$=º" ": FOR K 
=1 TO 4: LET F(K,1)=0: LET FIK 
;/2)=0: TF G(K)=C(K) THEN LET 
R$=RS$+" "+CHAS 16+CHRS O+CHRS 
1: LET N=N+1 
120 NEXT K 
130 FOR K=1 TO 4: 
THEN GOTO 170 


IF F(K,1)=1 


140 FOR J=1 TO 4: IF F(J,2)=1 
THEN GOTO 160 | 
150 IF C(J)=G(K) THEN LET R$= 





R$+" "+CHRS 16+CHRS 7+CHAS 144 
'| LET FE(J,2)=1: LET J=4 

L60 NEXT J 

170 NEXT K 

1B0 PRINT AT G,23;RS: INK O: 
IF N=4 THEN PRINT AT 21,0;"VO 
CE ACERTOU APOS ":G;" TENTATIV 
AS": GOTO 230 
190 LET G=Gtl: 
GOTO 30 

200 PRINT "O CODIGO CORRETO ER 
A ":: FOR K=1 TO 4: PRINT INK 
C(K):;CHAS 144;”" "4: NEXT K 
220 PRINT 

230 PRINT "JOGA NOVAMENTE 7" 
240 LET AS=INKEYS: IF A$="" 
THEN GOTO 240 

250 IF AS="S" THEN RUN : STOP 


T 


10 DIM C(3),6(3),F (3,1) :€C5="AZV 

CML" 

20 CLS:FOR K=0 TO 3:C(K)=AND(6) 
“NEXT:G=1:PRINT €8,"adivinhe o 
codigo” 

30 PRINT 68416,"TENTATIVA NO.";G 
"7 (EX: VZAC)":PRINT €448:B3= 

40 AS=INKEYS:IF AS="" THEN 40 

50 IF AS=CHRS(13) AND LEN(BS)=4 
THEN 90 

60 IF AS=CHRS(8B) AND LEN(BS)2>0 

THEN BS=LEFTS (BS, LEN(BS)-1) 

70 IF LEN(B8)<4 AND INSTR(CS,AS 
)J<>0 THEN BS=BS+AS 

BO PRINT €44B,BS:GOTO 40 

90 PRINT 832*G," TENTATIVA" ;G;:F 

OR K=0 TO 3:G(K)=INSTR(CS,MIDS( 
BS,K+1,1)):C=G(K)-(G(K)2>3) 

100 PRINT 632*G+11+K*2,CHRS (143 

+C*16); :NEXT 

110 N=0:88=" ":FOR K=0 TO 3:F( 

K,0)=0:F(K,1)=0:IF G(K)=C(K) TH 
EN R$=A8+" "+CHR$S(128B):F(K,0)=1 
“F(K,1)=1:N=N+1 

120 NEXT 

130 FOR K=0 TO 3:IF F(K,0)=1 TH 

EN 170 

140 FOR J=0 TO 3:IF F(J,1)=1 TH 
EN 160 

150 IF C(J)=G(K) THEN R$=RS+” * 

+CHAS (207) :F(J,1)=1:]J=3 

160 NEXT 

170 NEXT 

180 PRINT RS5:IF N=4á THEN 200 
190 G=G+1l:IF G=13 THEN 210 ELSE 
30 

200 PRINT €416," VOCE ACERTOU A 

POoS”:G;"TENTATIVAS":GOTO 230 
210 PRINT €416,"EU GANHEI. O CO 

DIGO CORRETO ERA” 

220 FOR K=0 TO 3: PRINT 0448+K*2 
5” ":CHRS(143+C(K)*16-16*(C(K)> 
3)); :NEXT 

230 PRINT: PRINT” JOGA NOVAMENTE 
? (5/N)” 

240 AS=INKEYS:IF AS<>"S"” AND AS 

<>"N” THEN 240 

250 IF AS="N”" THEN CLS: END ELSE 
20 


IF G<l3 THEN 


Do 


10 DIM €(3),6(3),F(3,1):€3 = € 

AVRLMC” 

20 HOME : FOR K = O TO 3:C(K) 

= INT (6 * RND (1) + 1): NEXT 
K 

25 G = 1: PRINT TAB( 6)"ADIVIN 

HE A SENHA (CORES: AVALMC)” 

30 VTAB (23): PRINT "TENTATIVA 
NUMERO ";6;" (EX:AVAL):":B5S = 


40 GET AS 
50 IF AS = cCHAS (13) AND JLEN 
(BS) = 4 THEN 90 


60 IF AS = 
(BS) > O THEN BS = 
LEN (BS) - 1) 

70 IF LEN (BS) < 4 THEN BS = 

BS + AS 

BO VTAB (G + 2): 
INT BS: GOTO 40 
90 VTAB (GG + 2): 
NUMERO ";G; 

92 FOR K =OTOSGJ3: 

O 6 

94 IF MIDS (BS,K + 1,1) = MI 

DS (CS,1I,1) THEN G(K) = I: GOTO 
100 

96 NEXT I 

9B G(K) = 0 

100 C = G(K) - (G(K) > 3): NEXT 
K 


CHRS (8) AND JLEN 
LEFTS (BS, 


HTAB (21): PR 
PRINT "CHANCE 


FOR I = 1T 


105 N = 0:04 = * * 

110 FOR K = 0 TO 3:F(K,0) = O: 
F(K,1) = O: IF G(K) = C(K) TREN 
AS = 09 +emom de SPFSE(K,0) =» d 


:F(K,1) = 12:N=N+I1 

120 NEXT 

130 FOR K = O 'TO 3: IF F(K,0) 
= 1 THEN 170 

140 FOR J = 0 TO 3: IF F(J,1) 
= ) THEN 160 


150 IF C(J) = G(K) THEN BS = À 
5 . "om + "B"r:F(J,1) = L:J = 3 
160 NEXT J 

170 NEXT K 

180 HTAB (28): 
= 4 THEN 200 
190 G=6G+1: 
10 

195 GoTo 30 
200 VTAB (22): PRINT * VOCÊ AC 
ERTOU A SENHA EM ";,G;" CHANCES” 
+ GOTO 230 

Z10 VTAB (22): PRINT * EU GANH 
EI, A SENHA ERA "; 


PRINT RS: IF N 


IF G = 13 THEN 2 


220 FOR K = O TO 3: PRINT MID 
5 (CS,0(K),1);: NEXT 
230 HTAB (1): VTAB (23): PRINT 


" QUER JOGAR NOVAMENTE? (S/N) 
Lad 


240 GET AS 
250 JIF AS = "5" THEN GOTO 40 
260 END 


Da 


10 DIM C(3),6(3),F(3,1):C5=" VAR 
LMEC” 

20 CLS:KEY OFF:FOR K=0 TO J:C(kK 
)J=INT(6*RND(-TIME)J4L) :NEXT:G=1: 












Como chegar mais rapidamente à se- 
| quiência correta das cores? 

Existe apenas um segredo: obter o 
máximo de informações em cada joga- 
da. Com seis tentativas, por exemplo, 
utilizando somente uma cor em cada, 
você descobrirá facilmente as quatro 
cores da senha, mas nada saberá so- 
bre suas posições. Assim, convém ter 
sempre em vista ambos os objetivos. 
Talvez você perca mais tempo para 
chegar às cores corretas, mas a defi- 
nição de suas posições na sequência 
será bem mais rápida. 



















PRINT TAB(4) "ADIVINHE A SENHA 

(CORES: VARLMC)” 

30 LOCATE 3,22: PRINT “"TENTATIV 

A NOF:G: "? (EX:AVAL)”:BS="" 

40 AS=INKEYS:IF AS="" THEN 40 

60 TF AS=CHRS(13) AND LEN (BS) =4 
THEN 90 

60 TF AS=CHRS(B) AND LEN(BS5)>0 

THEN BS=LEFTS (BS, LEN(BS)-1) 

70 TE LEN(B$)<4 AND INSTR(CS,AS 

1<>0 THEN BS5=BS+AS 

B0 LOCATE 24,6+4:PRINT B$S:GOTO 

40) 

90 LOCATE 3,6+4:PRINT"Tentativa 
número ":G::FOR K=0 TO 3:G(K)= 

INSTR (CS,MIDS (BS,K+1,1)):€C=G4K) 

- (G(K)>3) :NEXT K 

110 N=0:A58=" ":FOR K=0 TO 3:F( 

K,0)=0:F(K,1)=0:TF G(K)=C(K) TH 

EN R$=R$+" "+"P":F(K,0)=1:F(K,1 

=] :N=N+] 

120 NEXT 

130 FOR K=0 TO 3:1F F(K,0)=1 TH 

EN 170 

140 FOR J=0 TO 3:TF F(J,1)=1 TH 

EN 160 

150 IF C(J)=G(K) THEN R$=A5+º * 

+"Brr(J,1)=L:J=3 

160 NEXT 

170 NEXT 

LB0 LOCATE 28,6+4:PRINT BS:TF WN 

=4 THEN 200 

190 G=G+1]: TF G=13 THEN 210 ELSE 
30 

200 LOCATE 1,21:PRINT"Você acer 

tou a senha em ";G;" chances” :G 

OTO 230 

210 LOCATE 1,21:PRINT "Eu venci 
a senha correta era ";: 

220 FOR I=0 TO 3:PRINT MIDS(CS, 

C(1),1);:NEXT 

230 LOCATE 1,22: PRINT"Quer Joga 

r novamente? (S/N) ê 

240 AS=INKEYS:IF AS<>"S” AND AS 

<>"N” THEN 240 

2580 IF AS="N”" THEN CLS: END: ELSE 
20 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





HIRaENO PRÓXIMO NÚUMERONEHEEHHI! 


APLICAÇÕES 
Complete sua planilha eletrônica. Como entrar as equações. 
Cópias absolutas e relativas. Instruções especiais. 


CÓDIGO DE MÁQUINA 
Avalanche: início da caminhada. Onde Willie está pisando? 
imobilidade. Passos fatais. O último suspiro. 


PROGRAMAÇÃO BASIC 
Páginas gráficas e exigência de espaço. Técnicas de 
paginação. Armazenagem e recuperação. Animações gráficas. 





